home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt3sp1.arc / DOXMODU2.PAS < prev    next >
Pascal/Delphi Source File  |  1985-09-11  |  942b  |  35 lines
  1. BEGIN (* Do_Xmodem_Upload *)
  2.                                    (* Set comm. parms to 8,n,1 *)
  3.  
  4.    Xmodem_Bits_Save   := Data_Bits;
  5.    Xmodem_Parity_Save := Parity;
  6.    Xmodem_Stop_Save   := Stop_Bits;
  7.  
  8.    Async_Reset_Port( Comm_Port, Baud_Rate, 'N', 8, 1 );
  9.  
  10.                                    (* Perform transfer *)
  11.    CASE Transfer_Protocol OF
  12.  
  13.       Xmodem_Chk   : Send_Xmodem_File( FALSE );
  14.  
  15.       Xmodem_CRC   : Send_Xmodem_File( TRUE  );
  16.  
  17.       Telink,
  18.       Modem7_CRC   : Send_Modem7_File( TRUE );
  19.  
  20.       Modem7_Chk   : Send_Modem7_File( FALSE );
  21.  
  22.       Ymodem_Batch : Send_Ymodem_File;
  23.  
  24.       Ymodem       : Send_Xmodem_File( TRUE  );
  25.  
  26.       ELSE ;
  27.  
  28.    END  (* Case *);
  29.                                    (* Reset comm parms to saved values *)
  30.  
  31.    Async_Reset_Port( Comm_Port, Baud_Rate, Xmodem_Parity_Save,
  32.                      Xmodem_Bits_Save, Xmodem_Stop_Save );
  33.  
  34. END   (* Do_Xmodem_Upload *);
  35.